Attribute VB_Name = "SysObjects"
Option Explicit
Public Const ebUserType_User = 1&
Public Const ebUserType_Group = 2&
Public Const ebSecAllAccess = &H80000000
Public m_BillInterface_a As Object
Private mSystemProfile As Object
Private mGLView As Object
Private mGLData As Object
Private mSystemData As Object
Private mAppPub As Object
Public Sub RefreshAllObjects()
    Set mSystemProfile = Nothing
    Set mGLView = Nothing
    Set mGLData = Nothing
    Set mSystemData = Nothing
    Set mAppPub = Nothing
End Sub

#If EBO_REFERENCE Then
Public Property Get SystemProfile() As EBCGL.SystemProfile
#Else
Public Property Get SystemProfile() As Object
#End If
    If mSystemProfile Is Nothing Then
        Set mSystemProfile = GLData.SystemProfile
    End If
    Set SystemProfile = mSystemProfile
End Property
Public Property Set SystemProfile(ByVal NewVal As Object)
    Set mSystemProfile = NewVal
    Set GLData.SystemProfile = NewVal
End Property
#If EBO_REFERENCE Then
Public Property Get SystemData() As EBCBASE.SystemData
#Else
Public Property Get SystemData() As Object
#End If
    If mSystemData Is Nothing Then
        Set mSystemData = CreateObject("EBCBase.ClientBase").SystemData
    End If
    Set SystemData = mSystemData
End Property
Public Function CheckSystem() As Boolean
    CheckSystem = CreateObject("EBCBase.ClientBase").CheckSystem
End Function
#If EBO_REFERENCE Then
Public Property Get AppPub() As EBCPUB.AppPub
#Else
Public Property Get AppPub() As Object
#End If
    If mAppPub Is Nothing Then
        Set mAppPub = CreateObject("EBCPUB.AppPub")
    End If
    Set AppPub = mAppPub
End Property
#If EBO_REFERENCE Then
Public Property Get GLData() As EBCGLView.GLData
#Else
Public Property Get GLData() As Object
#End If
    If mGLData Is Nothing Then
        Set mGLData = CreateObject("EBCGLView.GLData")
    End If
    Set GLData = mGLData
End Property
#If EBO_REFERENCE Then
Public Property Get GLView() As EBCGLView.GLView
#Else
Public Property Get GLView() As Object
#End If
    If mGLView Is Nothing Then
        Set mGLView = CreateObject("EBCGLView.GLView")
    End If
    Set GLView = mGLView
End Property
Public Function KDRound(ByVal NumValue As Variant, Optional ByVal RScale As Long = 2) As Variant
        KDRound = CCur(Format(NumValue, "#,##0." & String$(RScale, "0")))
End Function

